
   1 .
   2 CLEAR ;NT=0;&(9)=50;FC=7;BC=8
   4 PRINT "COPYRIGHT 81";FOR A=-70TO 10STEP 10;CX=A;PRINT "L&M SOFTWARE";NEXT A;FOR A=0TO 999;NEXT A
   8 CLEAR ;BC=96;FC=7;W=0;&(9)=50;&(10)=180
  14 PRINT "KEY▼      MENU
  16 PRINT "   1 STEREO ARROWHEAD ► ◄
  18 PRINT "   2 3-D SPACE VORTEX
  20 PRINT "   3 SLIDE RULE-SET LEVEL
  22 PRINT "   4 KALEIDASCOPE
  24 PRINT "   5 MUSIC SCOPE
  26 PRINT "   6 ROUND ROBIN SEQUENCE
  32 PRINT "   0 RETURN  MENU
  35 A=KP-48;IF (A<1)+(A>7)GOTO 8
  38 IF A=1GOTO 100
  40 IF A=2GOTO 200
  42 IF A=3GOTO 300
  44 IF A=4GOTO 400
  46 IF A=5GOTO 500
  48 IF A=6W=6;GOTO 400
 100 CLEAR ;BC=7;&(0)=7;&(1)=7;FC=161;&(2)=90;&(3)=90;&(9)=20
 105 PRINT " 
 110 PRINT "L   R"
 115 FOR X=-80TO -48;FOR Y=29TO 43
 120 IF PX(X,Y)BOX (X+81)×5-79,(Y-37)×5,5,5,1
 125 NEXT Y;NEXT X
 130 PRINT ;PRINT ;PRINT ;PRINT ;PRINT ;PRINT ;PRINT ;PRINT ;PRINT ;PRINT ;PRINT 
 140 D=40;C=1;A=-80;B=-40;FOR E=1TO 2
 145 BOX A,B,2,1,3;A=A+2;B=B+C;IF B=D A=-80;B=40;C=-1;D=-40;NEXT E
 155 B=0;D=77;A=-78;F=-2;CY=0;CX=-20;PRINT "►";CY=0;CX=20;PRINT "◄
 160 BOX A,B,2,D,3;D=D+F;A=A+2;IF D=-1F=2;A=A+2;D=1;GOTO 160
 165 IF A=80GOTO 173
 170 GOTO 160
 173 BC=3;&(0)=0;&(1)=0;H=KN(4)÷5-25;I=&(29)÷4;&(9)=(H+I)+7
 177 IF &(22)=16GOTO 8
 180 GOTO 173
 200 CLEAR ;&(9)=20;X=RND (32)×8+3;Y=RND (32)×8;BC=X;FC=Y;T=128;&(0)=X+T;&(1)=X+T;&(2)=Y+T;&(3)=Y+T
 210 FOR A=1TO 29;B=A×2
 215 IF &(22)=16GOTO 8
 220 BOX B,-A+KN(2)÷10+12,A,A,3;BOX B,A+KN(2)÷10+12,A,A,3;BOX -B,A+KN(4)÷10+12,A,A,3;BOX -B,-A+KN(4)÷10+12,A,A,3;NEXT A
 230 CLEAR ;&(9)=148;FOR A=1TO 29
 240 IF &(22)=16GOTO 8
 250 BOX 0,A,A×5,A+KN(2)÷5+25,3;BOX 0,-A,A×5,A+KN(4)÷5+25,3;NEXT A
 260 IF W=6GOTO 400
 270 GOTO 200
 300 CLEAR ;&(10)=0;&(9)=29;&(0)=8;&(1)=8;&(3)=80;&(2)=80;BC=8;X=-75;B=31;C=10
 310 FOR A=0TO 7;BOX X,B,C,9,1;X=X+11;B=B-10;C=C+20;NEXT A
 320 &(10)=KN(2)+128
 330 IF &(22)=16GOTO 8
 340 GOTO 320
 400 CLEAR ;BC=RND (256);FC=BC+4+RND (32)×8;C=BC+4+RND (32)×8;&(0)=C;&(1)=C;D=FC+4+RND (32)×8;&(2)=D;&(3)=D;&(9)=20
 410 FOR A=0TO 50;Q=KN(2)+130;R=KN(4)+131;BOX 0,0,Q÷2,R÷3,3
 412 IF &(22)=16GOTO 8
 415 NEXT A
 420 IF W=6GOTO 500
 430 GOTO 400
 500 CLEAR ;&(9)=148
 510 X=RND (32)×8+3;Y=RND (32)×8;BC=X;FC=Y;&(0)=X+128;&(1)=X+128;&(2)=Y+128;&(3)=Y+128
 520 FOR A=0TO 20;E=KN(2)÷3+43;F=&(29)÷2+1;BOX 0,0,F,E,3;G=KN(4)÷2+65;H=&(31)÷3+1;BOX 0,0,G,H,2
 530 IF &(22)=16GOTO 8
 540 NEXT A
 550 IF W=6GOTO 200
 560 GOTO 510
:RETURN ;RUN 
>